home *** CD-ROM | disk | FTP | other *** search
/ Belgian Amiga Club - ADF Collection / BS1 part 60.zip / BS1 part 60 / Agfa Fonts^5.adf / InstallDingbats < prev    next >
Text File  |  1992-02-12  |  3KB  |  108 lines
  1. ;This "Installer" script will configure the users system to support 
  2. ; the Dingbats character set. 
  3. ; Background:
  4. ; Fountain version 37.10 sets L1 as the default symbol set. To support Dingbats
  5. ; we need to copy a new version of IF.SS that contains character maps for Dingbats.
  6. ; The new IF.SS files will contain: 
  7. ;        L1 - Amiga Latin 1
  8. ;        GD - Gold Disk
  9. ;        D1 - Series 100
  10. ;        D2 - Series 200
  11. ;        D3 - Series 300
  12. ;        plus the TD symbol sets, minus Ventura
  13.  
  14.  
  15. ; if something goes wrong, reset diskfont variable
  16.  
  17. (onerror (run "setenv env:sys/diskfont SYMSET L1"))
  18.  
  19.  
  20.  
  21.  
  22. (set SymSet
  23.       (askchoice
  24.            (prompt 
  25.            "The Agfa Intellifont ITC Zapf Dingbats typeface requires a special character set."
  26.            " Please refer to the last three pages of the enclosed \"Agfa ITC Zapf Dingbats Installation\" document. "
  27.            " This will help you decide the character set you want to select.")
  28.                           
  29.                   (help 
  30.                      "In order to take advantage of the rich set of characters"
  31.                      " in the ITC Zapf Dingbats collection, we need to add additional"
  32.                      " symbol sets. These symbol sets contain the following character maps:\n"
  33.                      "\n   D1 - ITC Zapf Dingbats Series-100\n"
  34.                      "     D2 - ITC Zapf Dingbats Series-200\n"
  35.                      "     D3 - ITC Zapf Dingbats Series-300\n"
  36.                      "\n"
  37.                      " Refer to the enclosed document for print sample of the above selection."
  38.                      )
  39.                   (choices "D1" "D2" "D3")
  40.                   (default "D1")                                    
  41.          )
  42. )
  43.  
  44.  
  45.     
  46. ;if the original IF.SS file is installed, copy new file
  47.  
  48.  
  49. (set ifssSize (getsize "fonts:_bullet/if.ss"))
  50.  
  51.  
  52. (if (< ifssSize 1)
  53.    
  54.    (Abort " \"fonts:_bullet/if.ss\" not found."
  55.           " Please execute \"IntellifontSystemChek\""
  56.    )        
  57. )
  58.  
  59.  
  60.  
  61. (if (> 2000 ifssSize)
  62.     
  63.    (
  64.     (run "copy fonts:_bullet/if.ss to fonts:_bullet/if.ss.org")  
  65.     (copyfiles
  66.                       
  67.             (prompt "Copying a new symbol set maps to support"
  68.             " ITC Zapf Dingbats"
  69.             )
  70.             
  71.             (help @copyfiles-help)
  72.             (source "df0:Intellifontfiles")
  73.             (dest "fonts:_bullet")
  74.             (pattern "if.ss")
  75.             (files)
  76.             (confirm)
  77.      )
  78.    )
  79. )            
  80.  
  81. ; set system variable
  82.  
  83. (if (= SymSet 0)
  84.  (run "setenv env:sys/diskfont SYMSET D1")
  85. )
  86.  
  87. (if (= SymSet 1)
  88.  (run "setenv env:sys/diskfont SYMSET D2")
  89. )
  90.  
  91. (if (= SymSet 2)
  92.  (run "setenv env:sys/diskfont SYMSET D3")
  93. )
  94.  
  95.  
  96. (message "The installer will now execute Fountain for you.\n"
  97.         " NOTE: This installer only works with ITC Zapf Dingbats Fonts." 
  98.         " You MUST only install Dingbats, then exit from Fountain,"
  99.         " and finish the Install !!! " 
  100. )
  101. (run "sys:system/fountain")
  102.  
  103. (run "setenv env:sys/diskfont SYMSET L1")
  104.  
  105. (trap 12345 (run "setenv env:sys/diskfont SYMSET L1"))
  106.  
  107. (exit)
  108.